package com.dhcc.core.framework.security.filter;

import java.io.Serializable;
import java.util.Deque;
import java.util.LinkedList;

import javax.servlet.ServletRequest;
import javax.servlet.ServletResponse;

import com.dhcc.core.framework.constant.Constant;
import com.dhcc.core.modules.system.entity.User;

import org.apache.shiro.cache.Cache;
import org.apache.shiro.cache.CacheManager;
import org.apache.shiro.session.Session;
import org.apache.shiro.session.mgt.DefaultSessionKey;
import org.apache.shiro.session.mgt.SessionManager;
import org.apache.shiro.subject.Subject;
import org.apache.shiro.web.filter.AccessControlFilter;

/**
 * 自定义拦截器管理在线用户（限制同一账号登录同时登录人数控制）
 *
 * @ClassName: KickoutSessionControlFilter
 * @Description: 描述 1.读取当前登录用户名，获取在缓存中的sessionId队列
 *               2.判断队列的长度，大于最大登录限制的时候，按踢出规则将之前的sessionId中的session域中存入kickout：true，并更新队列缓存
 *               3.判断当前登录的session域中的kickout如果为true， 想将其做退出登录处理，然后再重定向到踢出登录提示页面
 * @author: cyf
 * @date: 2018年3月14日 上午10:29:06
 */
public class KickoutSessionControlFilter extends AccessControlFilter {

    private boolean kickoutAfter = false; // 踢出之前登录的/之后登录的用户 默认踢出之前登录的用户
    private int maxSession = 1; // 同一个帐号最大会话数 默认1

    private SessionManager sessionManager;
    private Cache<String, Deque<Serializable>> cache;

    public void setKickoutAfter(boolean kickoutAfter) {
        this.kickoutAfter = kickoutAfter;
    }

    public void setMaxSession(int maxSession) {
        this.maxSession = maxSession;
    }

    public void setSessionManager(SessionManager sessionManager) {
        this.sessionManager = sessionManager;
    }

    // 设置Cache的key的前缀
    public void setCacheManager(CacheManager cacheManager) {
        this.cache = cacheManager.getCache("shiro-kickout-cache");
    }

    @Override
    protected boolean isAccessAllowed(ServletRequest request, ServletResponse response, Object mappedValue)
            throws Exception {
        return false;
    }

    @Override
    protected boolean onAccessDenied(ServletRequest request, ServletResponse response) throws Exception {
        Subject subject = getSubject(request, response);
        if (!subject.isAuthenticated() && !subject.isRemembered()) {
            // 如果没有登录，直接进行之后的流程
            return true;
        }
        Session session = subject.getSession();
        User user = (User) subject.getPrincipal();
        String userId = user.getId()+"";
        Serializable sessionId = session.getId();

        // 读取缓存 没有就存入
        Deque<Serializable> deque = cache.get(userId);

        // 如果此用户没有session队列，也就是还没有登录过，缓存中没有
        // 就new一个空队列，不然deque对象为空，会报空指针
        if (deque == null) {
            deque = new LinkedList<Serializable>();
        }

        // 如果队列里没有此sessionId，且用户没有被踢出；放入队列
        if (!deque.contains(sessionId) && session.getAttribute(Constant.SESSION_KICKOUT_KEY) == null) {
            // 将sessionId存入队列
            deque.push(sessionId);
            // 将用户的sessionId队列缓存
            cache.put(userId, deque);
        }
        //最大会话数为0，不限制
        if(maxSession!=0){
            // 如果队列里的sessionId数超出最大会话数，开始踢人
            while (deque.size() > maxSession) {
                Serializable kickoutSessionId = null;
                if (kickoutAfter) { // 如果踢出后者
                    kickoutSessionId = deque.removeFirst();
                    // 踢出后再更新下缓存队列
                    cache.put(userId, deque);
                } else { // 否则踢出前者
                    kickoutSessionId = deque.removeLast();
                    // 踢出后再更新下缓存队列
                    cache.put(userId, deque);
                }

                try {
                    // 获取被踢出的sessionId的session对象
                    Session kickoutSession = sessionManager.getSession(new DefaultSessionKey(kickoutSessionId));
                    if (kickoutSession != null) {
                        // 设置会话的kickout属性表示踢出了
                        kickoutSession.setAttribute(Constant.SESSION_KICKOUT_KEY, Constant.SESSION_KICKOUT_TYPE_MAX);
                    }
                } catch (Exception e) {// ignore exception
                }
            }
        }

        // 如果被踢出了，直接退出，重定向到踢出后的地址
        if (session.getAttribute(Constant.SESSION_KICKOUT_KEY) != null) {
            int kickoutType = (Integer) session.getAttribute(Constant.SESSION_KICKOUT_KEY);
            if (kickoutType == Constant.SESSION_KICKOUT_TYPE_MAX || kickoutType == Constant.SESSION_KICKOUT_TYPE_ADMIN) {
                // 会话被踢出了
                try {
                    // 退出登录
                    subject.logout();
                } catch (Exception e) { // ignore
                }
                saveRequest(request);
                request.setAttribute("isCustom", true);
                request.setAttribute("status", "401");
                if (kickoutType == Constant.SESSION_KICKOUT_TYPE_MAX) {
                    request.setAttribute("error", "您已经在其他地方登录");
                    request.setAttribute("message", "您已经在其他地方登录，请重新登录！");
                } else if (kickoutType == Constant.SESSION_KICKOUT_TYPE_ADMIN) {
                    request.setAttribute("error", "您已经被管理员踢出登录状态");
                    request.setAttribute("message", "您已经被管理员踢出登录状态，请重新登录！");
                }
                // 重定向
                request.getRequestDispatcher("/error").forward(request, response);
                return false;
            }
        }
        return true;
    }

}
